home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / win-os2.swg / 0047_CTL3D Version 2.0 Unit.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-03-26  |  2.7 KB  |  77 lines
  1. (**************************************************)
  2. (*                                                *)
  3. (*   Unit CTL3D - Version 2.0                     *)
  4. (*                                                *)
  5. (*   for use with CTL3D.DLL from Microsoft        *)
  6. (*                                                *)
  7. (*   Supplied by Andreas Furrer                   *)
  8. (*                                                *)
  9. (**************************************************)
  10.  
  11. unit Ctl3D;
  12.  
  13. interface
  14.  
  15. uses WinTypes;
  16.  
  17. (* Ctl3dSubclassDlg3d flags *)
  18. const Ctl3d_Buttons      = $0001;
  19.       Ctl3d_Listboxes    = $0002;
  20.       Ctl3d_Edits        = $0004;
  21.       Ctl3d_Combos       = $0008;
  22.       Ctl3d_StaticTexts  = $0010;
  23.       Ctl3d_StaticFrames = $0020;
  24.       Ctl3d_NoDlgWindow  = $00010000;
  25.  
  26.       Ctl3d_All          = $ffff;
  27.  
  28.  
  29. const wm_DlgBorder       = wm_User+3567;
  30.       (* WM_DLGBORDER PInteger(lParam)/\ return codes *)
  31.       Ctl3d_NoBorder     = 0;
  32.       Ctl3d_Border       = 1;
  33.  
  34.       wm_DlgSubclass     = wm_User+3568;
  35.       (* WM_DLGSUBCLASS PInteger(lParam)/\ return codes *)
  36.       Ctl3d_NoSubclass   = 0;
  37.       Ctl3d_Subclass     = 1;
  38.  
  39.  
  40. function Ctl3dSubclassDlg(HWindow : HWnd; GrBits : word) : bool;
  41. function Ctl3dSubclassDlgEx(HWindow : HWnd; GrBits : longint) : bool;
  42. function Ctl3dGetVer : word;
  43. function Ctl3dEnabled : bool;
  44. function Ctl3dCtlColor(DC : HDC; Color : TColorRef) : HBrush;
  45. {ARCHAIC, use Ctl3dCtlColorEx}
  46. function Ctl3dCtlColorEx(Message, wParam : word; lParam : longint) : HBrush;
  47. function Ctl3dColorChange : bool;
  48. function Ctl3dSubclassCtl(HWindow : HWnd) : bool;
  49. function Ctl3dDlgFramePaint(HWindow : HWnd; Message, wParam : word;lParam :
  50. longint) : longint;
  51. function Ctl3dAutoSubclass(Instance : THandle) : bool;
  52. function Ctl3dRegister(Instance : THandle) : bool;
  53. function Ctl3dUnregister(Instance : THandle) : bool;
  54. (* begin DBCS: far east short cut key support *)
  55. procedure Ctl3dWinIniChange;
  56. (* end DBCS *)
  57.  
  58.  
  59. implementation
  60.  
  61. function  Ctl3dGetVer;       external 'Ctl3d' index 1;
  62. function  Ctl3dSubclassDlg;  external 'Ctl3d' index 2;
  63. function  Ctl3dSubclassCtl;  external 'Ctl3d' index 3;
  64. function  Ctl3dCtlColor;     external 'Ctl3d' index 4;
  65. function  Ctl3dEnabled;      external 'Ctl3d' index 5;
  66. function  Ctl3dColorChange;  external 'Ctl3d' index 6;
  67. function  Ctl3dRegister;     external 'Ctl3d' index 12;
  68. function  Ctl3dUnregister;   external 'Ctl3d' index 13;
  69. function  Ctl3dAutoSubclass; external 'Ctl3d' index 16;
  70. function  Ctl3dCtlColorEx;   external 'Ctl3d' index 18;
  71. function  Ctl3dDlgFramePaint;external 'Ctl3d' index 20;
  72. function  Ctl3dSubclassDlgEx;external 'Ctl3d' index 21;
  73. procedure Ctl3dWinIniChange ;external 'Ctl3d' index 22;
  74.  
  75. end.
  76.  
  77.